Total n = 32

Exclude subject 14: squeezed emergency ball while in the scanner. Exclude subject 30: subject wanted to discontinue after round 7 because of discomfort caused by glasses Exclude subject 34: the participant perceived the peripheral nerve stimulation to be uncomfortable, so stopped the scan after Round 2.

n = 29

QA

Prescan

## `summarise()` has grouped output by 'sub', 'nquestion', 'round_text'. You can override using the `.groups` argument.
## `summarise()` has grouped output by 'sub'. You can override using the `.groups` argument.
## Joining, by = "sub"
## Joining, by = "sub"
Prescan Performance
nquestion correct1 conf conf_correct2
06
1 0.125 0.417 0.250
2 0.375 0.417 0.250
3 0.750 0.417 0.250
07
1 0.250 0.625 0.583
2 0.750 0.625 0.583
3 1.000 0.625 0.583
08
1 0.500 0.667 0.667
2 1.000 0.667 0.667
3 1.000 0.667 0.667
09
1 0.500 0.458 0.417
2 0.750 0.458 0.417
3 0.875 0.458 0.417
10
1 0.375 0.542 0.458
2 0.750 0.542 0.458
3 0.875 0.542 0.458
11
1 0.625 0.583 0.583
2 0.875 0.583 0.583
3 1.000 0.583 0.583
12
1 0.125 0.708 0.583
2 0.625 0.708 0.583
3 1.000 0.708 0.583
13
1 0.000 0.375 0.333
2 0.500 0.375 0.333
3 0.750 0.375 0.333
15
1 0.250 0.500 0.500
2 0.625 0.500 0.500
3 1.000 0.500 0.500
16
1 0.250 0.333 0.333
2 0.750 0.333 0.333
3 0.875 0.333 0.333
17
1 0.500 0.625 0.625
2 0.750 0.625 0.625
3 1.000 0.625 0.625
18
1 0.500 0.625 0.625
2 0.875 0.625 0.625
3 1.000 0.625 0.625
19
1 0.375 0.458 0.458
2 0.625 0.458 0.458
3 1.000 0.458 0.458
20
1 0.250 0.583 0.542
2 0.625 0.583 0.542
3 1.000 0.583 0.542
21
1 0.500 0.500 0.500
2 0.875 0.500 0.500
3 1.000 0.500 0.500
22
1 0.375 0.708 0.625
2 0.875 0.708 0.625
3 1.000 0.708 0.625
23
1 0.125 0.125 0.125
2 0.375 0.125 0.125
3 0.500 0.125 0.125
24
1 0.375 0.292 0.250
2 0.750 0.292 0.250
3 0.625 0.292 0.250
25
1 0.250 0.583 0.500
2 0.625 0.583 0.500
3 1.000 0.583 0.500
26
1 0.500 0.625 0.625
2 0.875 0.625 0.625
3 1.000 0.625 0.625
27
1 0.625 0.583 0.542
2 0.750 0.583 0.542
3 1.000 0.583 0.542
28
1 0.500 0.625 0.542
2 0.875 0.625 0.542
3 0.875 0.625 0.542
29
1 0.750 0.458 0.458
2 0.625 0.458 0.458
3 1.000 0.458 0.458
31
1 0.625 0.292 0.167
2 0.375 0.292 0.167
3 0.625 0.292 0.167
32
1 0.625 0.750 0.708
2 1.000 0.750 0.708
3 1.000 0.750 0.708
33
1 0.125 0.458 0.417
2 0.625 0.458 0.417
3 0.875 0.458 0.417
35
1 0.375 0.375 0.250
2 0.375 0.375 0.250
3 0.875 0.375 0.250
36
1 0.375 0.500 0.417
2 0.875 0.500 0.417
3 0.875 0.500 0.417
37
1 0.375 0.667 0.583
2 0.625 0.667 0.583
3 1.000 0.667 0.583

1 accuracy < 0.5 are highlighted

2 confidence correct < 0.25 are highlighted

Scan

Scan Performance
sub correct1 conf conf_correct2
06 0.950 0.750 0.750
07 0.950 0.825 0.800
08 0.925 0.900 0.900
09 0.800 0.375 0.375
10 0.725 0.475 0.475
11 0.925 0.900 0.875
12 0.725 0.750 0.725
13 0.350 0.275 0.250
15 0.975 0.800 0.775
16 0.825 0.600 0.575
17 0.950 0.950 0.950
18 0.975 0.950 0.925
19 0.800 0.600 0.575
20 0.750 0.700 0.650
21 0.675 0.200 0.200
22 0.800 0.850 0.750
23 0.750 0.350 0.350
24 0.650 0.300 0.300
25 0.850 0.825 0.750
26 0.875 0.800 0.775
27 0.700 0.325 0.325
28 0.950 0.925 0.925
29 0.850 0.575 0.575
31 0.575 0.700 0.500
32 0.925 0.875 0.875
33 0.725 0.425 0.400
35 0.850 0.600 0.550
36 0.650 0.475 0.475
37 0.900 0.825 0.800

1 accuracy < 0.5 are highlighted

2 confidence correct < 0.25 are highlighted

Posttest1

## `summarise()` has grouped output by 'sub'. You can override using the `.groups` argument.
Postscan1 Performance
confidence range from 0 - 2.
npic m1 conf
06
30 0.875 1.500
45 1.000 1.875
60 1.000 1.875
75 1.000 2.000
07
30 0.500 1.250
45 0.875 1.750
60 1.000 2.000
75 1.000 2.000
08
30 0.500 1.125
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
09
30 0.000 0.250
45 0.500 0.875
60 1.000 1.750
75 1.000 2.000
10
30 0.500 0.625
45 0.500 1.000
60 0.625 1.125
75 1.000 2.000
11
30 1.000 1.750
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
12
30 0.500 1.250
45 0.875 1.625
60 0.875 1.750
75 1.000 1.750
13
30 0.000 0.000
45 0.375 0.500
60 0.500 1.250
75 0.750 1.625
15
30 0.625 1.250
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
16
30 0.625 0.750
45 1.000 1.875
60 1.000 2.000
75 1.000 2.000
17
30 1.000 2.000
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
18
30 0.500 0.750
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
19
30 0.250 1.000
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
20
30 0.500 2.000
45 0.875 2.000
60 0.875 2.000
75 0.875 2.000
21
30 0.000 0.000
45 0.500 1.000
60 1.000 1.500
75 1.000 2.000
22
30 0.625 1.125
45 1.000 2.000
60 0.875 1.750
75 1.000 2.000
23
30 0.125 0.125
45 0.250 0.250
60 0.375 0.500
75 0.500 0.875
24
30 0.125 0.625
45 0.500 1.125
60 0.750 1.625
75 0.875 2.000
25
30 0.500 1.000
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
26
30 0.500 0.875
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
27
30 0.125 0.125
45 0.875 1.375
60 0.875 1.375
75 0.875 1.375
28
30 0.625 1.125
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
29
30 0.125 0.250
45 0.625 1.375
60 1.000 2.000
75 1.000 2.000
31
30 0.125 0.125
45 0.500 1.125
60 1.000 1.750
75 1.000 2.000
32
30 0.875 1.625
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
33
30 0.000 0.000
45 0.500 1.000
60 1.000 1.625
75 1.000 2.000
35
30 0.875 1.750
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
36
30 0.875 1.375
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000
37
30 0.500 1.000
45 1.000 2.000
60 1.000 2.000
75 1.000 2.000

1 accuracy <= 0.5 are highlighted

Posttest2

Post scan 2 mean accuracy per subject
sub m1 m_npic2
06 0.7500 32.40000
07 1.0000 31.81250
08 0.8750 32.37500
09 1.0000 51.31250
10 1.0000 49.06250
11 1.0000 29.12500
12 0.8125 34.64286
13 0.8750 53.25000
15 1.0000 32.25000
16 1.0000 42.81250
17 1.0000 29.12500
18 0.9375 34.31250
19 1.0000 42.50000
20 0.7500 30.25000
21 1.0000 50.62500
22 1.0000 34.43750
23 1.0000 80.37500
24 1.0000 46.31250
25 0.9375 35.93750
26 0.9375 34.81250
27 1.0000 60.12500
28 1.0000 34.12500
29 0.9375 50.87500
31 1.0000 49.93750
32 0.9375 34.87500
33 0.7500 49.50000
35 1.0000 30.06250
36 0.8750 33.37500
37 1.0000 33.06250

1 accuracy <= 0.5 are highlighted

2 average img index > 75 are highlighted

Prescan analysis

Participant were instructed to answer the expected destination for 3 times during the route: once at Same, once at Overlapping, and once at non-overlapping. They also indicated their confidence towards the choice (sure vs. unsure).

Figures

## `summarise()` has grouped output by 'nquestion'. You can override using the `.groups` argument.

Stats

ANVOA for Accuracy:

## $ANOVA
##            Effect DFn DFd            F            p p<.05          ges
## 1           round   1  28   4.26621160 4.824520e-02     * 0.0426592041
## 2       nquestion   2  56 126.86765294 1.590468e-21     * 0.6177159989
## 3 round:nquestion   2  56   0.04550996 9.555454e-01       0.0005700442

ANVOA for Confidence:

## $ANOVA
##            Effect DFn DFd            F            p p<.05          ges
## 1           round   1  28 8.860759e-03 9.256750e-01       7.773028e-05
## 2       nquestion   2  56 2.057355e+02 1.570849e-26     * 7.924358e-01
## 3 round:nquestion   2  56 3.189404e+00 4.877831e-02     * 2.604482e-02

ANVOA for high confidence accuracy:

## $ANOVA
##            Effect DFn DFd           F            p p<.05         ges
## 1           round   1  28   0.8853755 3.547812e-01       0.005432937
## 2       nquestion   2  56 210.0899190 9.368643e-27     * 0.821004064
## 3 round:nquestion   2  56   6.6624506 2.537263e-03     * 0.048871570

t-test for mean:

## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 1) %>% .$m and sub_plot %>% filter(round == 2 & nquestion == 1) %>% .$m
## t = -1.2737, df = 28, p-value = 0.2132
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.20236272  0.04719031
## sample estimates:
## mean of the differences 
##             -0.07758621
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 2) %>% .$m and sub_plot %>% filter(round == 2 & nquestion == 2) %>% .$m
## t = -1.0702, df = 28, p-value = 0.2937
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.17585166  0.05516201
## sample estimates:
## mean of the differences 
##             -0.06034483
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 3) %>% .$m and sub_plot %>% filter(round == 2 & nquestion == 3) %>% .$m
## t = -2.3462, df = 28, p-value = 0.02627
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.145323507 -0.009848906
## sample estimates:
## mean of the differences 
##             -0.07758621

t-test for confidence:

## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 1) %>% .$conf and sub_plot %>% filter(round == 2 & nquestion == 1) %>% .$conf
## t = 0.9262, df = 28, p-value = 0.3623
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.0522254  0.1384323
## sample estimates:
## mean of the differences 
##              0.04310345
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 2) %>% .$conf and sub_plot %>% filter(round == 2 & nquestion == 2) %>% .$conf
## t = 0.59326, df = 28, p-value = 0.5578
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.06343471  0.11515885
## sample estimates:
## mean of the differences 
##              0.02586207
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 3) %>% .$conf and sub_plot %>% filter(round == 2 & nquestion == 3) %>% .$conf
## t = -2.0725, df = 28, p-value = 0.04753
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.1542687024 -0.0009037114
## sample estimates:
## mean of the differences 
##             -0.07758621

t-test for high confidence accuracy:

## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 1) %>% .$cor_conf and sub_plot %>% filter(round == 2 & nquestion == 1) %>% .$cor_conf
## t = 2.544, df = 28, p-value = 0.01676
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.01175479 0.10893486
## sample estimates:
## mean of the differences 
##              0.06034483
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 2) %>% .$cor_conf and sub_plot %>% filter(round == 2 & nquestion == 2) %>% .$cor_conf
## t = -0.40231, df = 28, p-value = 0.6905
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.10502881  0.07054605
## sample estimates:
## mean of the differences 
##             -0.01724138
## 
##  Paired t-test
## 
## data:  sub_plot %>% filter(round == 1 & nquestion == 3) %>% .$cor_conf and sub_plot %>% filter(round == 2 & nquestion == 3) %>% .$cor_conf
## t = -2.7761, df = 28, p-value = 0.009696
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.19476096 -0.02937697
## sample estimates:
## mean of the differences 
##               -0.112069

Scan analysis

Early vs. Late stop accuracy during scan:

Accuracy per round:

## `summarise()` has grouped output by 'round'. You can override using the `.groups` argument.

Distribution of picture index:

Grouped in 10:

## `summarise()` has grouped output by 'npic_10', 'route'. You can override using the `.groups` argument.

Grouped in 5:

## `summarise()` has grouped output by 'npic_5', 'route'. You can override using the `.groups` argument.

Every picture:

Posttest analysis

Posttest 1

## `summarise()` has grouped output by 'sub'. You can override using the `.groups` argument.

Posttest 2

Average accuracy = 0.9439655

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.